home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gnu / adainc / a-stwifi.ads < prev    next >
Text File  |  1996-01-30  |  8KB  |  240 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT RUNTIME COMPONENTS                          --
  4. --                                                                          --
  5. --               A D A . S T R I N G S . W I D E _ F I X E D                --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.5 $                              --
  10. --                                                                          --
  11. --           Copyright (c) 1992,1993,1994 NYU, All Rights Reserved          --
  12. --                                                                          --
  13. -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  14. -- terms of the  GNU General Public License as published  by the Free Soft- --
  15. -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  16. -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  17. -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  18. -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  19. -- for  more details.  You should have  received  a copy of the GNU General --
  20. -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  21. -- to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. --
  22. --                                                                          --
  23. ------------------------------------------------------------------------------
  24.  
  25.  
  26. with Ada.Strings.Wide_Maps;
  27. with Ada.Strings.Wide_Search;
  28.  
  29. package Ada.Strings.Wide_Fixed is
  30.  
  31.    Blank : constant Wide_Character := ' ';
  32.    Pad   : constant Wide_Character := ' ';
  33.  
  34.    -------------------------------------------------------------------
  35.    -- Copy Procedure for Wide_Strings of Possibly Different Lengths --
  36.    -------------------------------------------------------------------
  37.  
  38.    procedure Move
  39.      (Source  : in  Wide_String;
  40.       Target  : out Wide_String;
  41.       Drop    : in  Truncation := Error;
  42.       Justify : in  Alignment  := Left;
  43.       Pad     : in  Wide_Character  := Wide_Fixed.Pad);
  44.  
  45.    ------------------------
  46.    -- Search Subprograms --
  47.    ------------------------
  48.  
  49.    --  Note: in this implementation, these search subprograms are in a
  50.    --  separate package Ada.Strings.Wide_Search. The declarations are
  51.    --  thus replaced by renamings of these routines (which is perfectly valid
  52.    --  since it is semantically undetectable that we have renamings here
  53.    --  rather than "real" subprogram declarations).
  54.  
  55.    function Index
  56.      (Source  : in Wide_String;
  57.       Pattern : in Wide_String;
  58.       Going   : in Direction := Forward;
  59.       Mapping : in Wide_Maps.Wide_Character_Mapping := Wide_Maps.Identity)
  60.       return    Natural
  61.    renames Ada.Strings.Wide_Search.Index;
  62.  
  63.    function Index
  64.      (Source  : in Wide_String;
  65.       Pattern : in Wide_String;
  66.       Going   : in Direction := Forward;
  67.       Mapping : in Wide_Maps.Wide_Character_Mapping_Function)
  68.       return    Natural
  69.    renames Ada.Strings.Wide_Search.Index;
  70.  
  71.    function Index
  72.      (Source : in Wide_String;
  73.       Set    : in Wide_Maps.Wide_Character_Set;
  74.       Test   : in Membership := Inside;
  75.       Going  : in Direction  := Forward)
  76.       return   Natural
  77.    renames Ada.Strings.Wide_Search.Index;
  78.  
  79.    function Index_Non_Blank
  80.      (Source : in Wide_String;
  81.       Going  : in Direction := Forward)
  82.       return   Natural
  83.    renames Ada.Strings.Wide_Search.Index_Non_Blank;
  84.  
  85.    function Count
  86.      (Source  : in Wide_String;
  87.       Pattern : in Wide_String;
  88.       Mapping : in Wide_Maps.Wide_Character_Mapping := Wide_Maps.Identity)
  89.       return    Natural
  90.    renames Ada.Strings.Wide_Search.Count;
  91.  
  92.    function Count
  93.      (Source   : in Wide_String;
  94.       Pattern  : in Wide_String;
  95.       Mapping  : in Wide_Maps.Wide_Character_Mapping_Function)
  96.       return     Natural
  97.    renames Ada.Strings.Wide_Search.Count;
  98.  
  99.    function Count
  100.      (Source : in Wide_String;
  101.       Set    : in Wide_Maps.Wide_Character_Set)
  102.       return   Natural
  103.    renames Ada.Strings.Wide_Search.Count;
  104.  
  105.    procedure Find_Token
  106.      (Source : in Wide_String;
  107.       Set    : in Wide_Maps.Wide_Character_Set;
  108.       Test   : in Membership;
  109.       First  : out Positive;
  110.       Last   : out Natural)
  111.    renames Ada.Strings.Wide_Search.Find_Token;
  112.  
  113.    -----------------------------------------
  114.    -- Wide_String Translation Subprograms --
  115.    -----------------------------------------
  116.  
  117.    function Translate
  118.      (Source  : in Wide_String;
  119.       Mapping : in Wide_Maps.Wide_Character_Mapping)
  120.       return    Wide_String;
  121.  
  122.    procedure Translate
  123.      (Source  : in out Wide_String;
  124.       Mapping : in Wide_Maps.Wide_Character_Mapping);
  125.  
  126.    function Translate
  127.      (Source  : in Wide_String;
  128.       Mapping : in Wide_Maps.Wide_Character_Mapping_Function)
  129.       return    Wide_String;
  130.  
  131.    procedure Translate
  132.      (Source  : in out Wide_String;
  133.       Mapping : in Wide_Maps.Wide_Character_Mapping_Function);
  134.  
  135.    --------------------------------------------
  136.    -- Wide_String Transformation Subprograms --
  137.    --------------------------------------------
  138.  
  139.    function Replace_Slice
  140.      (Source : in Wide_String;
  141.       Low    : in Positive;
  142.       High   : in Natural;
  143.       By     : in Wide_String)
  144.       return   Wide_String;
  145.  
  146.    procedure Replace_Slice
  147.      (Source  : in out Wide_String;
  148.       Low     : in Positive;
  149.       High    : in Natural;
  150.       By      : in Wide_String;
  151.       Drop    : in Truncation := Error;
  152.       Justify : in Alignment  := Left;
  153.       Pad     : in Wide_Character  := Wide_Fixed.Pad);
  154.  
  155.    function Insert
  156.      (Source   : in Wide_String;
  157.       Before   : in Positive;
  158.       New_Item : in Wide_String)
  159.       return     Wide_String;
  160.  
  161.    procedure Insert
  162.      (Source   : in out Wide_String;
  163.       Before   : in Positive;
  164.       New_Item : in Wide_String;
  165.       Drop     : in Truncation := Error);
  166.  
  167.    function Overwrite
  168.      (Source   : in Wide_String;
  169.       Position : in Positive;
  170.       New_Item : in Wide_String)
  171.       return     Wide_String;
  172.  
  173.    procedure Overwrite
  174.      (Source   : in out Wide_String;
  175.       Position : in Positive;
  176.       New_Item : in Wide_String;
  177.       Drop     : in Truncation := Right);
  178.  
  179.    function Delete
  180.      (Source  : in Wide_String;
  181.       From    : in Positive;
  182.       Through : in Natural)
  183.       return    Wide_String;
  184.  
  185.    procedure Delete
  186.      (Source  : in out Wide_String;
  187.       From    : in Positive;
  188.       Through : in Natural;
  189.       Justify : in Alignment := Left;
  190.       Pad     : in Wide_Character := Wide_Fixed.Pad);
  191.  
  192.    --------------------------------------
  193.    -- Wide_String Selector Subprograms --
  194.    --------------------------------------
  195.  
  196.    function Trim
  197.      (Source : in Wide_String)
  198.       return   Wide_String;
  199.  
  200.    function Trim
  201.      (Source : in Wide_String;
  202.       Left   : in Wide_Maps.Wide_Character_Set;
  203.       Right  : in Wide_Maps.Wide_Character_Set)
  204.       return   Wide_String;
  205.  
  206.    procedure Trim
  207.      (Source  : in out Wide_String;
  208.       Left    : in Wide_Maps.Wide_Character_Set;
  209.       Right   : in Wide_Maps.Wide_Character_Set;
  210.       Justify : in Alignment := Ada.Strings.Left;
  211.       Pad     : in Wide_Character := Wide_Fixed.Pad);
  212.  
  213.    function Head
  214.      (Source : in Wide_String;
  215.       Count  : in Natural;
  216.       Pad    : in Wide_Character := Wide_Fixed.Pad)
  217.       return   Wide_String;
  218.  
  219.    function Tail
  220.      (Source : in Wide_String;
  221.       Count  : in Natural;
  222.       Pad    : in Wide_Character := Wide_Fixed.Pad)
  223.       return   Wide_String;
  224.  
  225.    ---------------------------------------
  226.    -- Wide_String Constructor Functions --
  227.    ---------------------------------------
  228.  
  229.    function "*"
  230.      (Left  : in Natural;
  231.       Right : in Wide_Character)
  232.       return  Wide_String;
  233.  
  234.    function "*"
  235.      (Left  : in Natural;
  236.       Right : in Wide_String)
  237.       return Wide_String;
  238.  
  239. end Ada.Strings.Wide_Fixed;
  240.